home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC-SIG: World of Games
/
PC-SIG World of Games (CDRM1080710) (1993).iso
/
1314
/
UNSCRAM.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-02-01
|
482b
|
16 lines
10 '---------Unscram.Bas-----------
20 'This program will de-crypt a file
30 'encrypted with Scramble.Bas.
40 '-------------------------------
50 INPUT "What is the name of the file to be UN-scrambled";N$
60 INPUT "What will be the new name for the UN-scrambled file";O$
70 OPEN "i",1,N$
80 OPEN "o",2,O$
90 IF EOF(1) THEN 120
100 PRINT#2,CHR$(ASC(INPUT$(1,#1))-128);
110 GOTO 90
120 CLOSE #1,#2: NAME N$ AS "killfile":KILL "killfile"
130 PRINT
135 END
140 'SYSTEM